'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 18 October 2011 at 8:35 pm'!TestCase subclass: #GridDirectionTestCase	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Laser-Game-Test'!!GridDirectionTestCase methodsFor: 'test' stamp: 'menegazzo 10/18/2011 20:35'!testDirectionSelection	| direction |	{		{ #north. GridDirectionNorth. 0@1 negated. }.		{ #south. GridDirectionSouth. 0@1 }.		{ #west. GridDirectionWest. -1@0 }.		{ #east. GridDirectionEast. 1@0 }.	} copy do: [ : templateArray |		direction := GridDirection directionFor: (templateArray first).				self assert: direction equals: (templateArray at: 2).		self assert: direction vector equals: templateArray last.	]! !